home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Especial Multimedia
/
Especial Multimedia.iso
/
Multimed
/
Musica
/
ZMUD32.ZIP
/
ZMUD.EXE
/
0
/
RCDATA
/
TMUDFORM
/
TMUDFORM.txt
Wrap
Text File
|
1997-06-09
|
18KB
|
678 lines
object MUDForm: TMUDForm
Left = 149
Top = 122
HorzScrollBar.Visible = False
VertScrollBar.Visible = False
AutoScroll = False
Caption = 'zMUD'
ClientHeight = 333
ClientWidth = 594
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
FormStyle = fsMDIChild
Menu = MainMenu1
Position = poDefault
ShowHint = True
Visible = True
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnResize = FormResize
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 16
object PanelTop: TPanel
Left = 0
Top = 0
Width = 594
Height = 25
Hint = 'Right click to define button|'
Align = alTop
BevelOuter = bvLowered
TabOrder = 0
Visible = False
OnMouseDown = Speed1MouseDown
end
object UserOut: TTerm
Left = 0
Top = 25
Width = 576
Height = 290
Cursor = crIBeam
InsMode = False
VScroll = VScroll
HScroll = HScroll
TextAttr = 15
DefColor = 0
WrapIndent = 3
OnNewLine = UserOutNewLine
OnSend = UserOutSend
OnRDblClick = UserOutRDblClick
OnStatus = UserOutStatus
Margin = 5
SplitPos = 0
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Courier'
Font.Style = []
TabOrder = 1
Color = clBlack
ParentColor = False
ParentFont = False
TabStop = True
Align = alClient
OnKeyDown = UserOutKeyDown
OnKeyPress = UserOutKeyPress
OnMouseDown = UserOutMouseDown
end
object Panel1: TPanel
Left = 0
Top = 315
Width = 594
Height = 18
Align = alBottom
BevelOuter = bvNone
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
object Panel3: TPanel
Left = 576
Top = 0
Width = 18
Height = 18
Align = alRight
BevelOuter = bvLowered
TabOrder = 0
object PauseBut: TSpeedButton
Left = 1
Top = 1
Width = 16
Height = 16
Hint = 'Toggle Splitscreen|'
AllowAllUp = True
GroupIndex = 1
Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7000777777777777700077777777777770007777777777777000777777777777
70007700000000077000770CCCCCCC0770007700000000077000777777777777
7000777777777777700077777777777770007777777777777000777777777777
7000}
Margin = 0
OnClick = PauseButClick
end
end
object Panel4: TPanel
Left = 382
Top = 0
Width = 194
Height = 18
Align = alRight
BevelOuter = bvLowered
TabOrder = 1
object HScroll: TScrollBar
Left = 1
Top = 1
Width = 192
Height = 16
LargeChange = 35
Max = 0
TabOrder = 0
end
end
object GrabBar1: TGrabBar
Left = 376
Top = 0
Width = 6
Height = 17
Cursor = crHSplit
DragUpdate = True
Style = gbVertical
Thickness = 6
WindowA = StatBar
WindowB = Panel4
OnMove = GrabBar1Move
end
object StatBar: TPanel
Left = 33
Top = 0
Width = 343
Height = 18
Hint = 'Right click to define status bar|'
Align = alLeft
Alignment = taLeftJustify
BevelOuter = bvLowered
TabOrder = 3
OnMouseDown = StatBarMouseDown
object TimeBar: TPanel
Left = 242
Top = 1
Width = 60
Height = 16
Hint = 'Connection timer|'
Align = alRight
BevelOuter = bvLowered
TabOrder = 0
end
object TickBar: TPanel
Left = 302
Top = 1
Width = 40
Height = 16
Hint = 'Tick Timer|'
Align = alRight
BevelOuter = bvLowered
TabOrder = 1
end
end
object ButBar: TPanel
Left = 0
Top = 0
Width = 33
Height = 18
Align = alLeft
BevelOuter = bvLowered
TabOrder = 4
Visible = False
object LostCancelBtn: TSpeedButton
Left = 1
Top = 1
Width = 16
Height = 16
Hint = 'Cancel reconnect|'
Glyph.Data = {
C6000000424DC60000000000000076000000280000000A0000000A0000000100
0400000000005000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00707777707700
0000090777090700000099907099970000007999099977000000779999977700
0000770999077700000070999990770000000999799907000000999777999700
00007977777977000000}
OnClick = CancelReconnectClick
end
object LostConnBtn: TSpeedButton
Left = 17
Top = 1
Width = 16
Height = 16
Hint = 'Reconnect now|'
Glyph.Data = {
C6000000424DC60000000000000076000000280000000A0000000A0000000100
0400000000005000000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888800
0000888888888800000082888000000000002088A2222000000020888A222000
00002088802220000000A200028A200000008A222888A800000088AAA8888800
00008888888888000000}
OnClick = ReconnectClick
end
end
end
object Panel2: TPanel
Left = 576
Top = 25
Width = 18
Height = 290
Align = alRight
BevelOuter = bvLowered
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
object VScroll: TScrollBar
Left = 1
Top = 1
Width = 16
Height = 288
Kind = sbVertical
LargeChange = 22
Max = 0
TabOrder = 0
end
end
object MainMenu1: TMainMenu
Left = 520
Top = 32
object Edit1: TMenuItem
Caption = '&Edit'
GroupIndex = 5
Hint = 'Edit menu'
ShortCut = 0
OnClick = Edit1Click
object Cut1: TMenuItem
Caption = 'Cu&t'
Hint = 'Cut text to clipboard'
ShortCut = 16472
OnClick = Cut1Click
end
object Copy1: TMenuItem
Caption = '&Copy'
Hint = 'Copy text to clipboard'
ShortCut = 16451
OnClick = Copy1Click
end
object Paste1: TMenuItem
Caption = '&Paste'
Hint = 'Paste text from clipboard'
ShortCut = 16470
OnClick = Paste1Click
end
object CopyDDELink1: TMenuItem
Caption = 'Copy DDE Link'
ShortCut = 0
OnClick = CopyDDELink1Click
end
object N5: TMenuItem
Caption = '-'
Hint = ' '
ShortCut = 0
end
object SelectAll1: TMenuItem
Caption = 'Select &All'
Hint = 'Highlight all'
ShortCut = 0
OnClick = SelectAll1Click
end
object Clear1: TMenuItem
Caption = 'Clear'
Hint = 'Clear selection'
ShortCut = 16469
OnClick = Clear1Click
end
object N12: TMenuItem
Caption = '-'
Hint = ' '
ShortCut = 0
end
object Find1: TMenuItem
Caption = '&Find...'
Hint = 'Search for text'
ShortCut = 16454
OnClick = Find1Click
end
end
object View1: TMenuItem
Caption = '&View'
GroupIndex = 5
Hint = 'View menu'
ShortCut = 0
object Preferences1: TMenuItem
Caption = '&Preferences'
Hint = 'View preferences settings'
ShortCut = 0
object General1: TMenuItem
Caption = '&General...'
Hint = 'Veiw/edit general preferences'
ShortCut = 0
OnClick = Preferences1Click
end
object Colors1: TMenuItem
Caption = '&Colors...'
Hint = 'View/edit color settings'
ShortCut = 0
OnClick = Colors1Click
end
object Fonts1: TMenuItem
Caption = '&Fonts...'
Hint = 'View/edit font settings'
ShortCut = 0
OnClick = Font1Click
end
object Sounds1: TMenuItem
Caption = '&Sounds...'
Hint = 'View/edit sound settings'
ShortCut = 0
OnClick = Sounds1Click
end
object N15: TMenuItem
Caption = '-'
ShortCut = 0
end
object SpecialCharacters1: TMenuItem
Caption = 'Special Characters...'
Hint = 'View/edit special characters'
ShortCut = 0
OnClick = SpecialCharacters1Click
end
object Memory1: TMenuItem
Caption = '&Memory...'
Hint = 'View/edit memory settings'
ShortCut = 0
OnClick = Memory1Click
end
object Directories1: TMenuItem
Caption = 'Directories...'
Hint = 'View/edit directory locations'
ShortCut = 0
OnClick = Directories1Click
end
end
object N14: TMenuItem
Caption = '-'
ShortCut = 0
end
object Aliases1: TMenuItem
Caption = '&Aliases...'
Hint = 'View/edit aliases'
ShortCut = 0
OnClick = Aliases1Click
end
object Variables1: TMenuItem
Caption = '&Variables...'
Hint = 'View/edit variables'
ShortCut = 0
OnClick = Variables1Click
end
object Triggers1: TMenuItem
Caption = '&Triggers...'
Hint = 'View/edit triggers'
ShortCut = 0
OnClick = Triggers1Click
end
object Macrokeys1: TMenuItem
Caption = '&Macro keys...'
Hint = 'View/edit macros'
ShortCut = 0
OnClick = MacroKeys1Click
end
object Buttons1: TMenuItem
Caption = '&Buttons...'
Hint = 'View/edit buttons'
ShortCut = 0
OnClick = Buttons1Click
end
object TabCompletion1: TMenuItem
Caption = 'Tab &Completion...'
Hint = 'View/edit tab completion words'
ShortCut = 0
OnClick = TabCompletion1Click
end
object SpeedMenu1: TMenuItem
Caption = 'Speed &Menu...'
Hint = 'View/edit speed menu'
ShortCut = 0
OnClick = SpeedMenu1Click
end
object N13: TMenuItem
Caption = '-'
Hint = ' '
ShortCut = 0
end
object Speedwalking2: TMenuItem
Caption = 'Speed &Walking...'
Hint = 'View/edit speedwalking'
ShortCut = 0
OnClick = Speedwalking1Click
end
object Directions1: TMenuItem
Caption = '&Directions...'
Hint = 'View/edit speedwalking direction definitions'
ShortCut = 0
OnClick = Directions1Click
end
end
object Settings1: TMenuItem
Caption = '&Settings'
GroupIndex = 6
Hint = 'Settings menu'
ShortCut = 0
OnClick = Settings1Click
object New2: TMenuItem
Caption = '&New...'
GroupIndex = 41
Hint = 'Create a new, empty settings file'
ShortCut = 0
OnClick = New2Click
end
object Load1: TMenuItem
Caption = '&Load...'
GroupIndex = 42
Hint = 'Load a MUD settings file'
ShortCut = 0
OnClick = Load1Click
end
object Save2: TMenuItem
Caption = '&Save'
GroupIndex = 43
Hint = 'Save the current MUD settings'
ShortCut = 0
OnClick = Save2Click
end
object Save3: TMenuItem
Caption = 'Save &As...'
GroupIndex = 44
Hint = 'Save current MUD settings to a new filename'
ShortCut = 0
OnClick = Save3Click
end
object N2: TMenuItem
Caption = '-'
GroupIndex = 44
Hint = ' '
ShortCut = 0
end
object Import1: TMenuItem
Caption = '&Import'
GroupIndex = 44
Hint = 'Import settings'
ShortCut = 0
object Settings2: TMenuItem
Caption = '&Settings...'
Hint = 'Import from MUD settings file'
ShortCut = 0
OnClick = Settings2Click
end
object ASCII1: TMenuItem
Caption = 'Script (&ASCII)...'
Hint = 'Import settings from a zMUD script file'
ShortCut = 0
OnClick = ASCII1Click
end
object Tintin1: TMenuItem
Caption = '&Tintin++...'
Hint = 'Import settings from a TinTin++ script file'
ShortCut = 0
OnClick = Tintin1Click
end
end
object Export1: TMenuItem
Caption = '&Export...'
GroupIndex = 44
Hint = 'Export settings to a zMUD script file'
ShortCut = 0
OnClick = Export1Click
end
object N11: TMenuItem
Caption = '-'
GroupIndex = 44
Hint = ' '
ShortCut = 0
end
object Parse1: TMenuItem
Caption = 'Pa&rse'
GroupIndex = 44
Hint = 'Toggle command parsing'
ShortCut = 16466
OnClick = Parse1Click
end
object EnableTriggers1: TMenuItem
Caption = 'Enable Triggers'
GroupIndex = 44
Hint = 'Toggle all triggers'
ShortCut = 0
OnClick = EnableTriggers1Click
end
end
object Actions1: TMenuItem
Caption = '&Actions'
GroupIndex = 7
Hint = 'Actions menu'
ShortCut = 0
OnClick = Actions1Click
object MakeAlias1: TMenuItem
Caption = 'Make &Alias...'
GroupIndex = 81
Hint = 'Create a new alias for the command in the input buffer'
ShortCut = 16449
OnClick = MakeAlias1Click
end
object MakeTrigger1: TMenuItem
Caption = 'Make &Trigger...'
GroupIndex = 82
Hint = 'Create a new trigger'
ShortCut = 16468
OnClick = MakeTrigger1Click
end
object Macros1: TMenuItem
Caption = 'Define Macro &Key...'
GroupIndex = 82
Hint = 'Create a new macro key'
ShortCut = 16459
OnClick = Macros1Click
end
object MakeButton1: TMenuItem
Caption = 'Make &Button...'
GroupIndex = 82
Hint = 'Create a new button'
ShortCut = 16450
OnClick = MakeButton1Click
end
object AddTabWord1: TMenuItem
Caption = 'Add Tab &Word'
GroupIndex = 83
Hint = 'Add last word in input buffer to tab completion list'
ShortCut = 16471
OnClick = AddTabWord1Click
end
object N10: TMenuItem
Caption = '-'
GroupIndex = 84
Hint = ' '
ShortCut = 0
end
object Speedwalking1: TMenuItem
Caption = '&Speedwalking...'
GroupIndex = 84
Hint = 'Edit paths and speedwalking variables and parameters'
ShortCut = 16467
OnClick = Speedwalking1Click
end
object N9: TMenuItem
Caption = '-'
GroupIndex = 89
Hint = ' '
ShortCut = 0
end
object TickTimer1: TMenuItem
Caption = 'T&ick Timer...'
GroupIndex = 90
Hint = 'Display the Tick Timer dialog'
ShortCut = 0
OnClick = TickTimer1Click
end
object TickStart1: TMenuItem
Caption = 'S&ync Timer'
GroupIndex = 91
Hint = 'Synchronize the tick timer'
ShortCut = 0
OnClick = TickStart1Click
end
object N8: TMenuItem
Caption = '-'
GroupIndex = 91
Hint = ' '
ShortCut = 0
end
object DefineStatusBar1: TMenuItem
Caption = 'Define Status Bar...'
GroupIndex = 91
Hint = 'Set the definition of the status bar'
ShortCut = 0
OnClick = DefineStatusBar1Click
end
object Speedtest1: TMenuItem
Caption = 'Speed test'
GroupIndex = 91
ShortCut = 16465
Visible = False
OnClick = Speedtest1Click
end
end
end
object OpenFileDialog: TOpenDialog
DefaultExt = 'mud'
FileEditStyle = fsEdit
Filter =
'MUD Files|*.mud|Script Files|*.zsc|Text Files|*.txt|All Files|*.' +
'*'
Left = 416
Top = 32
end
object SaveFileDialog: TSaveDialog
DefaultExt = 'mud'
FileEditStyle = fsEdit
Filter = 'MUD Files|*.mud|All files|*.*'
Options = [ofHideReadOnly, ofNoReadOnlyReturn]
Left = 448
Top = 32
end
object WaitTimer: TTimer
Enabled = False
OnTimer = WaitTimerTimer
Left = 520
Top = 72
end
object StepTimer: TTimer
Enabled = False
Interval = 5000
OnTimer = StepTimerTimer
Left = 520
Top = 104
end
object TickMenu: TPopupMenu
OnPopup = TickMenuPopup
Left = 152
Top = 88
object Enable1: TMenuItem
Caption = 'Enable'
ShortCut = 0
OnClick = Enable1Click
end
object Sync1: TMenuItem
Caption = 'Sync'
ShortCut = 0
OnClick = Sync1Click
end
object N7: TMenuItem
Caption = '-'
ShortCut = 0
end
object TickDialog1: TMenuItem
Caption = 'Tick Dialog'
ShortCut = 0
OnClick = TickDialog1Click
end
end
object SpeedMenu: TPopupMenu
AutoPopup = False
Left = 152
Top = 128
end
object FindDlg: TFindDialog
Options = [frHideMatchCase, frHideWholeWord, frDisableMatchCase, frDisableWholeWord]
OnFind = FindDlgFind
Left = 416
Top = 72
end
end